home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / pc_dcl.zip / TESTFIL.DCL < prev    next >
Text File  |  1991-11-08  |  588b  |  37 lines
  1. set verify
  2. open /write /err=open_error logica 'p1'
  3. sho log logica
  4. write /ERR=write_error logica 1234567890
  5. write /ERR=write_error logica "ABCDEFGHIJKLMNOPQRSTUVWXYZ" + 1234567890
  6. write /ERR=write_error logica 10 * 5 * 2 * 10
  7. close /err=close_error logica
  8.  
  9. open /read /err=open_error logica 'p1'
  10. loop:
  11.         read /err=read_error /end=eof_error logica record
  12.         w record
  13.         goto loop
  14. eof_error:
  15. !END OF FILE
  16. exit
  17.  
  18. open_error:
  19. !OPEN ERROR
  20. exit
  21.  
  22. write_error:
  23. !WRITE ERROR
  24. exit
  25.  
  26. close_error:
  27. !CLOSE ERROR
  28. exit
  29.  
  30. read_error:
  31. !READ ERROR
  32. exit
  33.  
  34.  
  35.  
  36.  
  37.